home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Later Date (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  543 b   |  19 lines
  1. 0 print"[147]":poke53280,6:poke53281,0
  2. 1 rem ==================================
  3. 2 rem    commodares problem #52-1 :
  4. 3 rem       later date
  5. 4 rem    solution by
  6. 5 rem       leslie walden
  7. 6 rem ==================================
  8. 10 for n=1 to 3: read a$,b$
  9. 20 gosub 50: next n: end
  10. 30 data 03/08/88, 09/16/74, 01/02/03, 01/02/04
  11. 40 data 08/10/80, 08/10/80
  12. 50 av$=right$(a$,2) + left$(a$,2) + mid$(a$,4,2)
  13. 60 bv$=right$(b$,2) + left$(b$,2) + mid$(b$,4,2)
  14. 70 if av$=bv$ then c$="the same as "
  15. 80 if av$<bv$ then c$="earlier than "
  16. 90 if av$>bv$ then c$="later than "
  17. 100 print a$; " is "; c$; b$; "."
  18. 110 return
  19.